home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmigaPlus / Tools / Development / envCPP31 / c++ / rexx / compiler.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-01-01  |  1.8 KB  |  82 lines
  1. /* rexx macro */
  2.  
  3. options results                             /* enable return codes     */
  4.  
  5. if (left(address(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.  
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10.  
  11. if (RC ~= 0) then
  12.  
  13.     exit
  14.  
  15. options failat 6                            /* ignore warnings         */
  16.  
  17. signal on syntax                            /* ensure clean exit       */
  18.  
  19. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  20.  
  21. /* INPUTS: CMODE/K (supported values for CMODE: SAS-C,VBCC,GCC,STORMC,GENERIC) */
  22.  
  23. parse upper arg CMODE .
  24.  
  25. 'QUERY CAT'
  26.  
  27. if (RESULT = "deutsch") then do
  28.  
  29.     STRING.sSYNTAX       = "Erforderliches Argument fehlt: CMODE/K"
  30.     STRING.sNOTINSTALLED = "Support für diesen Compiler wurde nicht|installiert:"
  31. end
  32. else do
  33.  
  34.     STRING.sSYNTAX       = "Required argument missing: CMODE/K"
  35.     STRING.sNOTINSTALLED = "Support für this compiler has not been|installed:"
  36. end
  37.  
  38. if (CMODE = "") then
  39.  
  40.     'REQUEST PROBLEM="' || STRING.sSYNTAX || '"'
  41.  
  42. else if (exists("golded:add-ons/c++/compilers/" || CMODE)) then do
  43.  
  44.     if (CMODE = "SAS-C") then
  45.  
  46.         FILETYPE = "SAS/C#?"
  47.  
  48.     else if (CMODE = "VBCC") then
  49.  
  50.         FILETYPE = "vbcc#?"
  51.  
  52.     else if (CMODE = "GCC") then
  53.  
  54.         FILETYPE = "gcc#?"
  55.  
  56.     else if (CMODE = "STORMC") then
  57.  
  58.         FILETYPE= "StormC#?"
  59.     else
  60.         FILETYPE = "C/C++#?"
  61.  
  62.     /* sort compiler-specific filetype to top */
  63.  
  64.     'TYPE SORT="' || FILETYPE || '"'
  65. end
  66. else
  67.     'REQUEST PROBLEM="' || STRING.sNOTINSTALLED || " «" || CMODE || '»"'
  68.  
  69. /* ---------------------------- END OF YOUR CODE ----------------------- */
  70.  
  71. 'UNLOCK' /* VERY important: unlock GUI */
  72.  
  73. exit
  74.  
  75. SYNTAX:
  76.  
  77. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  78.  
  79. 'UNLOCK'
  80.  
  81. exit
  82.